home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_19_1987_Transactor_Publishing.d64 / copy file64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  273 b   |  7 lines
  1. 80 poke51,84:poke52,9
  2. 90 input"file type  s[157][157][157]";t$:input"file";x$
  3. 100 open1,8,2,x$:sys2223
  4. 105 ifst<>64thenprint"no go":stop
  5. 120 close1:input"other disk ready";a$
  6. 130 iflen(a$)thenopen 1,8,2,x$+","+t$+",w":sys2267:close1
  7.